home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip Temmuz 2004.iso / program / antispam / RazorAgent_SDK / razor-agents-sdk-2.03.exe / URI-1.19 / t / mix.t < prev    next >
Encoding:
Text File  |  2002-05-09  |  1.9 KB  |  78 lines
  1. print "1..6\n";
  2.  
  3. # Test mixing of URI and URI::WithBase objects
  4. use URI;
  5. use URI::WithBase;
  6. use URI::URL;
  7.  
  8. $str = "http://www.sn.no/";
  9. $rel = "path/img.gif";
  10.  
  11. $u  = URI->new($str);
  12. $uw = URI::WithBase->new($str, "http:");
  13. $uu = URI::URL->new($str);
  14.  
  15. sub Dump
  16. {
  17.    require Data::Dumper;
  18.    print Data::Dumper->Dump([$a, $b, $c, $d], [qw(a b c d)]);
  19. }
  20.  
  21. $a = URI->new($rel, $u);
  22. $b = URI->new($rel, $uw);
  23. $c = URI->new($rel, $uu);
  24. $d = URI->new($rel, $str);
  25.  
  26. #Dump();
  27. print "not " unless $a->isa("URI") &&
  28.                     ref($b) eq ref($uw) &&
  29.                     ref($c) eq ref($uu) &&
  30.                     $d->isa("URI");
  31. print "ok 1\n";
  32.  
  33. print "not " if $b->base && $c->base;
  34. print "ok 2\n";
  35.  
  36. $a = URI::URL->new($rel, $u);
  37. $b = URI::URL->new($rel, $uw);
  38. $c = URI::URL->new($rel, $uu);
  39. $d = URI::URL->new($rel, $str);
  40.  
  41. print "not " unless ref($a) eq "URI::URL" &&
  42.                     ref($b) eq "URI::URL" &&
  43.                     ref($c) eq "URI::URL" &&
  44.                     ref($d) eq "URI::URL";
  45. print "ok 3\n";
  46.  
  47. print "not " unless ref($b->base) eq ref($uw) &&
  48.                     $b->base eq $uw &&
  49.                     ref($c->base) eq ref($uu) &&
  50.                     $c->base eq $uu &&
  51.                     $d->base eq $str;
  52. print "ok 4\n";
  53.  
  54.  
  55.  
  56. $a = URI->new($uu, $u);
  57. $b = URI->new($uu, $uw);
  58. $c = URI->new($uu, $uu);
  59. $d = URI->new($uu, $str);
  60.  
  61. #Dump();
  62. print "not " unless ref($a) eq ref($b) &&
  63.                     ref($b) eq ref($c) &&
  64.                     ref($c) eq ref($d) &&
  65.                     ref($d) eq ref($u);
  66. print "ok 5\n";
  67.  
  68. $a = URI::URL->new($u, $u);
  69. $b = URI::URL->new($u, $uw);
  70. $c = URI::URL->new($u, $uu);
  71. $d = URI::URL->new($u, $str);
  72.  
  73. print "not " unless ref($a) eq "URI::URL" &&
  74.                     ref($b) eq "URI::URL" &&
  75.                     ref($c) eq "URI::URL" &&
  76.                     ref($d) eq "URI::URL";
  77. print "ok 6\n";
  78.